home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / ambos_demov1.100.lha / AmBoS_Install / Install_AmBoS < prev    next >
Text File  |  1994-07-23  |  2KB  |  112 lines
  1. (user 2)
  2. (set MainPath        "BBS:")
  3. (set SourcePath        "AmBoS")
  4.  
  5. (set destpath
  6.     (askdir
  7.         (prompt "Wo soll das AmBoS-Verzeichnis erzeugt werden ?")
  8.         (help "In das von Ihnen gewählte Verzeichnis wird das AmBoS-Demo kopiert. Es wird ein Icon für das Verzeichnis erzeugt")
  9.         (default "work:")
  10.     )
  11. )
  12.  
  13. (set @default-dest
  14.     (tackon destpath "AmBoS")
  15. )
  16.  
  17. (set result
  18.     (makedir @default-dest
  19.         (prompt "Erzeuge AmBoS-Verzeichnis...")
  20.         (infos)
  21.         (safe)
  22.     )
  23. )
  24.  
  25. (set result
  26.     (copyfiles
  27.         (prompt "Kopiere AmBoS-Files...")
  28.         (help "Es werden nun die AmBoS-File kopiert")
  29.         (source SourcePath)
  30.         (dest @default-dest)
  31.         (all)
  32.         (infos)
  33.         (optional fail)
  34.         (safe)
  35.     )
  36. )
  37.  
  38. (set result
  39.     (copylib
  40.         (prompt "Kopiere Libraries...")
  41.         (help "Es werden nun die AmBoS-Libraries kopiert")
  42.         (source "libs/bbs.library")
  43.         (dest "libs:")
  44.         (optional fail)
  45.         (safe)
  46.     )
  47. )
  48.  
  49. (set result
  50.     (copyfiles
  51.         (prompt "Kopiere Fonts...")
  52.         (help "Es werden nun die AmBoS-Fonts kopiert")
  53.         (source "fonts")
  54.         (dest "fonts:")
  55.         (all)
  56.         (infos)
  57.         (optional fail)
  58.         (safe)
  59.     )
  60. )
  61.  
  62. (set forstartup ("assign bbs: \"%s\"" @default-dest))
  63.  
  64. (set result
  65.     (startup "AmBoS-Hauptprogramm"
  66.         (prompt "Es wird das BBS-Assign in Ihre User-Startup eingefügt")
  67.         (help "Das Assign wird von AmBoS benötigt, um die nötigen Datenfiles zu finden")
  68.         (command forstartup)
  69.     )
  70. )
  71. (makeassign "bbs" @default-dest)
  72.  
  73. (set result
  74.     (askbool
  75.         (default 1)
  76.         (prompt "AmBoS macht von allen Datenfiles ein Backup. Dazu muß allerdings das Assign 'backup:' eingerichtet sein. Soll dieses Assign in Ihre User-Startup einfügt werden ?")
  77.         (help "Dieses Assign benötigt AmBoS um Backups von den Systemdaten zu machen")
  78.         (choices "Ja" "Nein")
  79.     )
  80. )
  81.  
  82. (if result
  83.     (
  84.         (set destpath
  85.             (askdir
  86.                 (prompt "Wo soll das Backup-Verzeichnis erzeugt werden ?")
  87.                 (help "In das von Ihnen gewählte Verzeichnis werden die backups der Systemdaten gemacht. Es sollte ein Verzeichnis auf einer Partition ungleich der BBS-Partition gewählte werden.")
  88.                 (default "data:")
  89.             )
  90.         )
  91.         (set backuppath
  92.             (tackon destpath "Backup")
  93.         )
  94.         (set result
  95.             (makedir backuppath
  96.                 (prompt "Erzeuge backup-Verzeichnis...")
  97.                 (infos)
  98.                 (safe)
  99.             )
  100.         )
  101.         (set backupassign ("assign backup: \"%s\"" backuppath))
  102.         (set result
  103.             (startup "AmBoS-Backupverzeichnis"
  104.                 (prompt "Es wird das Backup-Assign in Ihre User-Startup eingefügt")
  105.                 (help "Das Assign wird von AmBoS benötigt, um backups von den Datenfiles zu machen.")
  106.                 (command backupassign)
  107.             )
  108.         )
  109.         (makeassign "backup" backuppath)
  110.     )
  111. )
  112.